home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
DBFSCR20.ARJ
/
CLIPPER5.TEM
< prev
next >
Wrap
Text File
|
1990-11-20
|
2KB
|
45 lines
D | Color type P,D, or N
\SetColor("<<gfore>>/<<gback>>") | CLS color
\CLS | Clear Screen
\SetColor("<<fore>>/<<back>>") | Box color 1
# | Box color 2
@ <<r1>>,<<c1>>,<<r2>>,<<c2>> BOX | Draw Box
\ "╔═╗║╝═╚║ " | If Double
\ "┌─┐│┘─└│ " | If Single
\SetColor("<<fore>>/<<back>>") | Say Color 1
# | Say Color 2
\@ <<r1>>,<<c1>> SAY "<<var>>" | Say Text
@ <<r1>>,<<c1>> SAY <<var>> | Say Char
@ <<r1>>,<<c1>> SAY <<var>> | Say String
@ <<r1>>,<<c1>> SAY <<var>> | Say Date
@ <<r1>>,<<c1>> SAY <<var>> | Say Byte
@ <<r1>>,<<c1>> SAY <<var>> | Say Integer
@ <<r1>>,<<c1>> SAY <<var>> | Say Long
@ <<r1>>,<<c1>> SAY <<var>> | Say Real
@ <<r1>>,<<c1>> SAY <<var>> | Say Logical
\ PICTURE "<<var>>" | With Say Picture
\ | Without Say Picture
# | With Say Picture Alt
# | Without Say Picture Alt
\SetColor(",<<fore>>/<<back>>") | Get Color 1
# | Get Color 2
@ <<r1>>,<<c1>> GET <<var>> | Get Char
@ <<r1>>,<<c1>> GET <<var>> | Get String
@ <<r1>>,<<c1>> GET <<var>> | Get Date
@ <<r1>>,<<c1>> GET <<var>> | Get Byte
@ <<r1>>,<<c1>> GET <<var>> | Get Integer
@ <<r1>>,<<c1>> GET <<var>> | Get Long
@ <<r1>>,<<c1>> GET <<var>> | Get Real
@ <<r1>>,<<c1>> GET <<var>> | Get Logical
PICTURE "<<var>>" | With Get Picture
# | Without Get Picture
# | With Get Picture Alt
# | Without Get Picture Alt
RANGE <<var>> | With Range
# | Without Range
WHEN <<var>>() | With PreField
# | Without PreField
\ VALID <<var>>() | With Valid
\ | Without Valid
END-OF-FILE